BBS in a Box 4/BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso/Files/Hyper/B/BBStuff.cpt/BBStuff/background_2794.txt

Text File | 1987-11-24 | 13.0 KB | 569 lines

-- background: 2794 from stack: in
-- bmap block id: 2834
-- flags: 0000
-- background id: 0
-- name: BBS Load Listings
----- HyperTalk script -----
on openField
  put the short name of the target into targetName
  if first word of targetName is "Date" then
    put third word of targetName into dateFieldNum
    put "File Name" && dateFieldNum into fileField
    put "Date Field" && dateFieldNum into dateField
    if bkgnd field fileField is not empty and bkgnd field dateField is empty then
      put the short date into bkgnd field dateField
      put the loc of bkgnd field fileField into clickPoint
      click at clickPoint
      tabKey
    end if
  end if
end openField


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=18 right=52 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 1


-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=18 right=52 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 1


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=18 right=52 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 1


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=53 right=87 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 2


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=53 right=87 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 2


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=53 right=87 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 2


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=88 right=122 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 3


-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=88 right=122 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 3


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=88 right=122 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 3


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=123 right=157 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 4


-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=123 right=157 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 4


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=123 right=157 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 4


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=158 right=192 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 5


-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=158 right=192 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 5


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=158 right=192 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 5


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=193 right=227 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 6


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=193 right=227 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 6


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=193 right=227 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 6


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=228 right=262 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 7


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=228 right=262 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 7


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=228 right=262 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 7


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=264 right=298 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name 8


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=264 right=298 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Field 8


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=264 right=298 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Desc Field 8
----- HyperTalk script -----
on closeField
  click at 0,0
  if bkgnd field "Desc Field 8" is not empty then
    answer "Do you wish to add another file?" with "No" or "Yes"
    if it is "Yes" then
      click at location of bkgnd button "Add File"
    end if
  end if
end closeField



-- part 29 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=8 top=321 right=339 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BBS Name


-- part 30 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=146 top=321 right=339 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Load Direction


-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=476 top=317 right=340 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Card
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp




-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=435 top=317 right=341 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next Card
----- HyperTalk script -----
on mouseUp
  go next card
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=404 top=317 right=341 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous card
----- HyperTalk script -----
on mouseUp
  go previous card
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=319 top=317 right=341 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add File
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  put bkgnd field "BBS Name" into BBSTitle
  put bkgnd field "Load Direction" into loadDirection
  put the name of this background into thisBkgnd
  --  set lockScreen to true
  repeat while rightCardType(BBSTitle,loadDirection,thisBkgnd)
    if checkForEmptyField() = "Found" then
      set lockScreen to false
      exit mouseUp
    end if
    go to next card --the card's fields are full
  end repeat
  go to previous card --add new card of the same type
  doMenu "New Card"
  --  set lockScreen to false
  set lockText of bkgnd field "BBS Name" to false
  set lockText of bkgnd field "Load Direction" to false
  put BBSTitle into bkgnd field "BBS Name"
  put loadDirection into bkgnd field "Load Direction"
  set lockText of bkgnd field "BBS Name" to true
  set lockText of bkgnd field "Load Direction" to true
  send tabKey
end mouseUp

function rightCardType BBSTitle,loadDirection,thisBkgnd
if the name of this background = thisBkgnd and bkgnd field "BBS Name" = BBSTitle and bkgnd field "Load Direction" = loadDirection then
  put true into checkResult
else
  put false into checkResult
end if
return checkResult
end rightCardType

function checkForEmptyField
repeat with nameFieldNum = 1 to 8
  put "File Name" && nameFieldNum into nameField
  if first char of bkgnd field nameField is empty or first char of bkgnd field nameField = space then
    get location of bkgnd field nameField
    subtract textHeight of bkgnd field nameField from second item of it
    click at it
    return "Found"
  end if
end repeat
return "Full"
end checkForEmptyField



-- part 35 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=260 top=317 right=341 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Latest
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  set the cursor to 4
  put bkgnd field "BBS Name" into BBSTitle
  put bkgnd field "Load Direction" into loadDirection
  put the name of this background into thisBkgnd
  repeat while rightCardType(BBSTitle,loadDirection,thisBkgnd)
    if checkForEmptyField() = "Found" then
      set lockScreen to false
      exit mouseUp
    end if
    go to next card --the card's fields are full
  end repeat
  go to previous card --this was latest card
end mouseUp

function rightCardType BBSTitle,loadDirection,thisBkgnd
if the name of this background = thisBkgnd and bkgnd field "BBS Name" = BBSTitle and bkgnd field "Load Direction" = loadDirection then
  put true into checkResult
else
  put false into checkResult
end if
return checkResult
end rightCardType

function checkForEmptyField
repeat with nameFieldNum = 1 to 8
  put "File Name" && nameFieldNum into nameField
  if first char of bkgnd field nameField is empty or first char of bkgnd field nameField = space then
    get location of bkgnd field nameField
    subtract textHeight of bkgnd field nameField from second item of it
    click at it
    return "Found"
  end if
end repeat
return "Full"
end checkForEmptyField